home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / text / glossary / strip.bas < prev   
Encoding:
BASIC Source File  |  1994-04-20  |  230 b   |  14 lines

  1. OPEN "glossary.txt" FOR INPUT AS #1
  2. OPEN "glossary.wrd" FOR OUTPUT AS #2
  3. DO
  4. LINE INPUT #1, a$
  5. PRINT a$
  6. IF INSTR(a$, ",") THEN
  7. t$ = MID$(a$, 1, INSTR(a$, ",") - 1)
  8. PRINT t$
  9. PRINT #2, t$
  10. END IF
  11. LOOP UNTIL EOF(1)
  12. CLOSE
  13.  
  14.